#-*-Perl-*-

eval 'exec /emc/sgdb/runperl $0 $*'
    if 0 ;


open F, '>>Sgdb/myImages.pm' or
open F,      '>>myImages.pm' or 
die "can't open myImages.pm or Sgdb/myImages.pm . breaks\n" ;

undef $/ ;

foreach my $file ( @ARGV ) {

    open D, $file or die "can't open $file: $!\n" ;

    my ($name) = $file =~ m{.*/([^\/\.]*)\..*$} ;
    my $s = <D> ;

    $s =~ /[^[:ascii:]]/ and die "non ascii char in $file. breaks\n" ;

    print F qq/
      \$list{ '$name' } = <<'PiCtUr' ;
$s
PiCtUr
/ ;
}


